Bezeichnung


PG:SimpleQuery -- Führt eine SQL-Abfrage aus.


Übersicht


Fail, ErrorCode, fields, Result(Table) = PG:SimpleQuery(SQL$, ConnectionID)


Beschreibung


Es werden nur Abfragen unterstützt die keine Inhalte der Datenbank verändern. Möchten Sie beispielsweise Einträge einer Tabelle verändern, benutzen Sie bitte PG:SimpleUpdate oder PG:ExtendedUpdate.


Fields und Result kurz erklärt:

Angenommen fields enthält den Wert 3. Das würde bedeuten das Ihre Abfrage Ergebnisse in drei Spalten brachte.

Result[0], Result[1] und Result[2] sind  somit ein Datensatz, also eine Zeile der Tabelle.

Enthält Result noch weitere Einträge würde der zweite Datensatz bei Result[3] beginnen und bei [5] enden. usw. usw....


Eingaben


SQL$

Dieser String muss die SQL-Abfrage enthalten.


ConnectionID

               ID der Netzwerkverbindung


Rückgabewerte


Fail

True wenn ein Fehler aufgetreten ist.

False wenn alles funktioniert hat.


ErrorCode

Einen dreistelligen internen Fehlercode oder einen fünfstelligen PostgreSQL Fehlercode.

Ansonsten False.


fields

Enthält die Anzahl der Spalten einer Tabelle


Result

Result ist eine Tabelle die alle Ergebnisse der Abfrage enthält. Beginnend beim Index 0


Beispiel


Dieses Beispiel listet alle Kunden welche "Mustermann" heißen.


/****************************************************************

**                                                             **

** Name:        5_DBQuery                                      **

** Author:      Michael Suther                                 **

** Date:        27.04.19                                       **

** Interpreter: Hollywood 8.0                                  **

** Function:    Performs a search in the Customer table.       **

**              Lists all customers named "Mustermann".               **

**                                                             **

****************************************************************/


@INCLUDE "PostgreSQL_Lib.hws"


Block        

       Local Fail, ConnectionID, i, a, SQL$

       Local Errorcode

       Local Host$ = "localhost"

       Local Port = 5432

       Local Database$ = "postgres"

       Local Username$ = "test"

       Local Passwort$ = "test"

       Local fields

       Local Result = {}


       ;registration

       Fail, ErrorCode, ConnectionID = PG:OpenDatabase(Host$, Port, Database$, Username$, Passwort$)

       

       ; Evaluating the Return values

       If Fail = False 

               NPrint("Connection was successfully established.")

               NPrint("")

       Else

               NPrint("")

               NPrint("The connection failed.")

               NPrint("")

               NPrint("Error code:  ", ErrorCode)

       EndIf

       

       ;Show all customers with surname Mustermann

       Local SQL$ = "SELECT * FROM Kunde WHERE name LIKE 'Mustermann'"

       Fail, Errorcode, fields, Result = PG:SimpleQuery(SQL$, ConnectionID)

       

       ; Evaluating the Return values

       If Fail = False

               items = TableItems(Result)

               For i = 0 To items-1 Step fields

                       For a = 1 To fields

                               Print(Result[i + a-1], " ")

                       Next

                       NPrint("")

               Next                

       Else

               NPrint("Query failed.")

               NPrint("Error code:  ", ErrorCode)

       EndIf

       

       WaitLeftMouse

       

       ;Close connection To the database.

       PG:CloseDatabase(ConnectionID)

       End        

EndBlock


Mit dem Personal Edition von HelpNDoc erstellt: Gratis Webhilfegenerator